#!/usr/bin/perl
# ace.pl
use warnings;
use strict;

use Game::Card1;

my $card = new Game::Card1('Ace', 'Spades');
print $card->{'name'};   # produces 'Ace';
$card->{'suit'} = 'Hearts';   # change card to the Ace of Hearts
